home *** CD-ROM | disk | FTP | other *** search
/ Transactor / Transactor_22_1988_Transactor_Publishing.d64 / sprite display (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  527b  |  23 lines
  1. 10 rem zero page display  rl 5/10/84
  2. 60 poke 53280,0:poke 53281,0:print"[147][152]";
  3. 100 vi=53248
  4. 110 poke vi+21,255
  5. 120 poke vi+23,255
  6. 130 poke vi+29,255
  7. 140 poke vi,30: poke vi+1,65
  8. 150 poke vi+2,90: poke vi+3,65
  9. 160 poke vi+4,150: poke vi+5,65
  10. 170 poke vi+6,210: poke vi+7,65
  11. 180 poke vi+8,30: poke vi+9,135
  12. 190 poke vi+10,90: poke vi+11,135
  13. 200 poke vi+12,150: poke vi+13,135
  14. 210 poke vi+14,210: poke vi+15,135
  15. 220 for i=0 to 7: poke 2040+i,i: next
  16. 230 for i=0 to 7: poke vi+39+i,i+7: next
  17. 250 print"page zero"
  18. 260 print"page one"
  19. 270 get a$: if a$=""then 270
  20. 280 print "goto 999[145][145]"
  21. 290 end
  22. 999 poke 53248+21,0: print "[147]";
  23.